home *** CD-ROM | disk | FTP | other *** search
/ PCMania 73 / PCMania CD73_1.iso / pcmania / render73 / Foro / CASAS / GRADAS.INC < prev    next >
Text File  |  1997-03-19  |  2KB  |  97 lines
  1.  
  2.  
  3. union{
  4.  
  5. #declare d=0
  6. #declare c=0
  7.  
  8. //Grada1
  9. object{
  10. union{
  11. union{
  12.  #while(d<62)
  13.  box{<-100,10,-40+d> <100,50-(d/2),-38+d>}
  14.  #declare d=d+2
  15.  #end
  16. }
  17. #declare d=0
  18. #while(d<60)
  19.    #while(c<190)
  20.    #if(c=60 | c=130 )
  21.       #declare c=c+10
  22.    #end
  23.    object{
  24.    union{
  25.    box{<-94+c,12,-40+d> <-96+c,52.5-(d/2),-39.5+d>}
  26.    box{<-94+c,12,-40+d> <-96+c,51-(d/2),-38+d>}
  27.    }
  28.    pigment {rgb<1,0,0>}
  29.    }
  30.    #declare c= c+2.5
  31.    #end
  32. #declare d= d+2
  33. #declare c=0
  34. #end
  35. }
  36. pigment {rgb<0.6,0.6,0.6>}
  37. rotate <0,180,0>
  38. scale <1,0.7,1>
  39. translate <0,-10,-100>
  40. }
  41.  
  42.  
  43. //Publico
  44.  
  45. #declare d=0
  46. #declare c=0
  47. #declare R1= seed(34)
  48. #declare R2= seed(54)
  49. #declare R3= seed(86)
  50.  
  51. object{
  52.  
  53. union{
  54.  
  55. #while(d<60)
  56.  
  57.    #while(c<190)
  58.  
  59.    #if(c=60 | c=130)
  60.      #declare c=c+10
  61.    #end
  62.  
  63.    //Ahora se genera una persona, es decir, una esfera y una cilindro unidos
  64.  
  65.    object{
  66.    union{
  67.    sphere{
  68.       <-95+c,53.5-(d/2),-39+d>, 0.5
  69.       pigment{ rgb<0.5,0.2,0.2>} // El color de la cabeza no cambia
  70.    }
  71.    cylinder{
  72.      <-95+c,50-(d/2),-39+d>,<-95+c,53-(d/2),-39+d>, 0.55
  73.      pigment{rgb<rand(R1),rand(R2),rand(R3)>}
  74.  
  75.      //Esta lφnea de arriba asigna un color pseudo-aleatorio al cuerpo (cilindro) de la persona
  76.  
  77.    }
  78.    }
  79.    }
  80.    #declare c=c+2.5
  81.  
  82. // Las 3 lφneas siguientes asignan nuevos valores a las semillas de rand
  83.  
  84.    #declare R1= R1*R1/7
  85.    #declare R2= R2*R2/13
  86.    #declare R3= R3*R3/17
  87.    #end
  88. #declare d=d+2
  89. #declare c=0
  90. #end
  91. }
  92. rotate <0,180,0>
  93. scale <1,0.7,1>
  94. translate <0,-10,-100>
  95. }
  96. }
  97.